﻿Imports BUS
Imports DTO
Public Class frmThayDoiMatKhau : Inherits DevComponents.DotNetBar.Office2007Form
    Private m_Nhanvien As CNhanVienDTO
    Public Property NhanVien() As CNhanVienDTO
        Get
            Return m_Nhanvien
        End Get
        Set(ByVal value As CNhanVienDTO)
            m_Nhanvien = value
        End Set
    End Property

    Private Sub frmThayDoiMatKhau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtTenDangNhap.Text = m_Nhanvien.Ma
        txtHoTen.Text = m_Nhanvien.HoTen
    End Sub

    Private Sub Reset()
        txtMatKhauCu.Text = ""
        txtMatKhauGoLai.Text = ""
        txtMatKhauMoi.Text = ""
    End Sub
    Private Sub btnThayDoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThayDoi.Click
        If txtMatKhauCu.Text = "" Then
            MessageBox.Show("Xin vui lòng gõ lại mật khẩu cũ")
            Return
        End If

        If String.Compare(txtMatKhauCu.Text, m_Nhanvien.MatKhau) <> 0 Then
            MessageBox.Show("Xin vui lòng nhập lại mật khẩu")
            Return
        End If

        If txtMatKhauMoi.Text = "" Then
            MessageBox.Show("Xin vui lòng nhập mật khẩu mới")
            Return
        End If

        If String.Compare(txtMatKhauMoi.Text, txtMatKhauGoLai.Text) <> 0 Then
            MessageBox.Show("Mật khẩu không trùng khớp.")
            Return
        End If

        Dim kt As Boolean = New CNhanVienBUS().ThayDoiMatKhau(txtTenDangNhap.Text, txtMatKhauMoi.Text)
        MessageBox.Show("Thay đổi thành công")
    End Sub
End Class